home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / SystemCode / prefs.tcl < prev    next >
MacBinary  |  1996-08-18  |  7.5 KB  |  [TEXT/ALFA]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: prefs.tcl

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Aug 18 10:38:54 1996, modified Sun Aug 18 10:38:54 1996, creator Alpha editor, type ASCII, 6613 bytes "prefs.tcl" , at 0x1a55 848 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[ALFA]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 70 72 65 66 73 2e | 74 63 6c 00 00 00 00 00 |..prefs.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 19 d5 00 | 00 03 50 ae 3c db 7e ae |........|..P.<.~.|
|00000060| 3c db 7e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |<.~.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8d d1 00 00 |........|........|
|00000080| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 0d 0d 0d 70 72 6f | 63 20 61 64 64 41 72 72 |==...pro|c addArr|
|000000e0| 44 65 66 20 7b 61 72 72 | 20 64 65 66 20 76 61 6c |Def {arr| def val|
|000000f0| 7d 20 7b 0d 09 61 64 64 | 44 65 66 20 5b 6c 69 73 |} {..add|Def [lis|
|00000100| 74 20 24 61 72 72 20 24 | 64 65 66 5d 20 24 76 61 |t $arr $|def] $va|
|00000110| 6c 20 61 72 72 0d 7d 0d | 0d 70 72 6f 63 20 72 65 |l arr.}.|.proc re|
|00000120| 6d 6f 76 65 41 72 72 44 | 65 66 20 7b 61 72 72 20 |moveArrD|ef {arr |
|00000130| 64 65 66 7d 20 7b 0d 09 | 72 65 6d 6f 76 65 44 65 |def} {..|removeDe|
|00000140| 66 20 5b 6c 69 73 74 20 | 24 61 72 72 20 24 64 65 |f [list |$arr $de|
|00000150| 66 5d 20 61 72 72 0d 7d | 0d 0d 70 72 6f 63 20 61 |f] arr.}|..proc a|
|00000160| 64 64 44 65 66 20 7b 64 | 65 66 20 76 61 6c 20 7b |ddDef {d|ef val {|
|00000170| 70 72 65 66 69 78 20 7b | 7d 7d 7d 20 7b 0d 09 67 |prefix {|}}} {..g|
|00000180| 6c 6f 62 61 6c 20 24 7b | 70 72 65 66 69 78 7d 70 |lobal ${|prefix}p|
|00000190| 72 65 66 44 65 66 73 0d | 09 0d 09 72 65 61 64 44 |refDefs.|...readD|
|000001a0| 65 66 73 20 24 70 72 65 | 66 69 78 0d 09 73 65 74 |efs $pre|fix..set|
|000001b0| 20 24 7b 70 72 65 66 69 | 78 7d 70 72 65 66 44 65 | ${prefi|x}prefDe|
|000001c0| 66 73 28 24 64 65 66 29 | 20 24 76 61 6c 0d 09 77 |fs($def)| $val..w|
|000001d0| 72 69 74 65 44 65 66 73 | 20 24 70 72 65 66 69 78 |riteDefs| $prefix|
|000001e0| 0d 09 63 61 74 63 68 20 | 7b 75 6e 73 65 74 20 24 |..catch |{unset $|
|000001f0| 7b 70 72 65 66 69 78 7d | 70 72 65 66 44 65 66 73 |{prefix}|prefDefs|
|00000200| 7d 0d 7d 0d 0d 70 72 6f | 63 20 72 65 6d 6f 76 65 |}.}..pro|c remove|
|00000210| 44 65 66 20 7b 64 65 66 | 20 7b 70 72 65 66 69 78 |Def {def| {prefix|
|00000220| 20 7b 7d 7d 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 | {}}} {.|.global |
|00000230| 24 7b 70 72 65 66 69 78 | 7d 70 72 65 66 44 65 66 |${prefix|}prefDef|
|00000240| 73 0d 09 0d 09 72 65 61 | 64 44 65 66 73 20 24 70 |s....rea|dDefs $p|
|00000250| 72 65 66 69 78 0d 09 63 | 61 74 63 68 20 7b 75 6e |refix..c|atch {un|
|00000260| 73 65 74 20 24 7b 70 72 | 65 66 69 78 7d 70 72 65 |set ${pr|efix}pre|
|00000270| 66 44 65 66 73 28 24 64 | 65 66 29 7d 0d 09 77 72 |fDefs($d|ef)}..wr|
|00000280| 69 74 65 44 65 66 73 20 | 24 70 72 65 66 69 78 0d |iteDefs |$prefix.|
|00000290| 09 63 61 74 63 68 20 7b | 75 6e 73 65 74 20 24 7b |.catch {|unset ${|
|000002a0| 70 72 65 66 69 78 7d 70 | 72 65 66 44 65 66 73 7d |prefix}p|refDefs}|
|000002b0| 0d 7d 0d 0d 70 72 6f 63 | 20 72 65 61 64 44 65 66 |.}..proc| readDef|
|000002c0| 73 20 7b 7b 70 72 65 66 | 69 78 20 7b 7d 7d 7d 20 |s {{pref|ix {}}} |
|000002d0| 7b 0d 09 67 6c 6f 62 61 | 6c 20 48 4f 4d 45 20 50 |{..globa|l HOME P|
|000002e0| 52 45 46 53 20 67 6c 6f | 62 61 6c 50 72 65 66 69 |REFS glo|balPrefi|
|000002f0| 78 0d 0d 09 69 66 20 7b | 21 5b 66 69 6c 65 20 65 |x...if {|![file e|
|00000300| 78 69 73 74 73 20 22 24 | 50 52 45 46 53 3a 24 7b |xists "$|PREFS:${|
|00000310| 70 72 65 66 69 78 7d 64 | 65 66 73 2e 74 63 6c 22 |prefix}d|efs.tcl"|
|00000320| 5d 7d 20 72 65 74 75 72 | 6e 0d 09 0d 09 73 65 74 |]} retur|n....set|
|00000330| 20 67 6c 6f 62 61 6c 50 | 72 65 66 69 78 20 24 70 | globalP|refix $p|
|00000340| 72 65 66 69 78 0d 09 75 | 70 6c 65 76 65 6c 20 23 |refix..u|plevel #|
|00000350| 30 20 7b 73 6f 75 72 63 | 65 20 22 24 50 52 45 46 |0 {sourc|e "$PREF|
|00000360| 53 3a 24 7b 67 6c 6f 62 | 61 6c 50 72 65 66 69 78 |S:${glob|alPrefix|
|00000370| 7d 64 65 66 73 2e 74 63 | 6c 22 7d 0d 7d 0d 0d 0d |}defs.tc|l"}.}...|
|00000380| 70 72 6f 63 20 77 72 69 | 74 65 44 65 66 73 20 7b |proc wri|teDefs {|
|00000390| 7b 70 72 65 66 69 78 20 | 7b 7d 7d 7d 20 7b 0d 09 |{prefix |{}}} {..|
|000003a0| 67 6c 6f 62 61 6c 20 48 | 4f 4d 45 20 50 52 45 46 |global H|OME PREF|
|000003b0| 53 20 24 7b 70 72 65 66 | 69 78 7d 70 72 65 66 44 |S ${pref|ix}prefD|
|000003c0| 65 66 73 20 0d 09 0d 09 | 69 66 20 7b 21 5b 69 6e |efs ....|if {![in|
|000003d0| 66 6f 20 65 78 69 73 74 | 73 20 24 7b 70 72 65 66 |fo exist|s ${pref|
|000003e0| 69 78 7d 70 72 65 66 44 | 65 66 73 5d 7d 20 7b 0d |ix}prefD|efs]} {.|
|000003f0| 09 09 63 61 74 63 68 20 | 7b 72 65 6d 6f 76 65 46 |..catch |{removeF|
|00000400| 69 6c 65 20 22 24 50 52 | 45 46 53 3a 24 7b 70 72 |ile "$PR|EFS:${pr|
|00000410| 65 66 69 78 7d 64 65 66 | 73 2e 74 63 6c 22 7d 0d |efix}def|s.tcl"}.|
|00000420| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 0d 09 69 |..return|..}....i|
|00000430| 66 20 7b 21 5b 66 69 6c | 65 20 65 78 69 73 74 73 |f {![fil|e exists|
|00000440| 20 22 24 50 52 45 46 53 | 22 5d 7d 20 7b 0d 09 09 | "$PREFS|"]} {...|
|00000450| 6d 6b 64 69 72 20 22 24 | 50 52 45 46 53 22 0d 09 |mkdir "$|PREFS"..|
|00000460| 7d 0d 09 73 65 74 20 66 | 64 20 5b 6f 70 65 6e 20 |}..set f|d [open |
|00000470| 22 24 50 52 45 46 53 3a | 24 7b 70 72 65 66 69 78 |"$PREFS:|${prefix|
|00000480| 7d 64 65 66 73 2e 74 63 | 6c 22 20 22 77 22 5d 0d |}defs.tc|l" "w"].|
|00000490| 09 66 6f 72 65 61 63 68 | 20 6e 6d 20 5b 61 72 72 |.foreach| nm [arr|
|000004a0| 61 79 20 6e 61 6d 65 73 | 20 24 7b 70 72 65 66 69 |ay names| ${prefi|
|000004b0| 78 7d 70 72 65 66 44 65 | 66 73 5d 20 7b 0d 09 09 |x}prefDe|fs] {...|
|000004c0| 70 75 74 73 20 24 66 64 | 20 5b 6c 69 73 74 20 73 |puts $fd| [list s|
|000004d0| 65 74 20 24 7b 70 72 65 | 66 69 78 7d 70 72 65 66 |et ${pre|fix}pref|
|000004e0| 44 65 66 73 28 24 6e 6d | 29 20 5b 73 65 74 20 24 |Defs($nm|) [set $|
|000004f0| 7b 70 72 65 66 69 78 7d | 70 72 65 66 44 65 66 73 |{prefix}|prefDefs|
|00000500| 28 24 6e 6d 29 5d 5d 0d | 09 7d 0d 09 63 6c 6f 73 |($nm)]].|.}..clos|
|00000510| 65 20 24 66 64 0d 7d 0d | 0d 0d 70 72 6f 63 20 72 |e $fd.}.|..proc r|
|00000520| 65 61 64 55 73 65 72 44 | 65 66 73 20 7b 7d 20 7b |eadUserD|efs {} {|
|00000530| 0d 09 67 6c 6f 62 61 6c | 20 70 72 65 66 44 65 66 |..global| prefDef|
|00000540| 73 20 61 72 72 70 72 65 | 66 44 65 66 73 20 50 52 |s arrpre|fDefs PR|
|00000550| 45 46 53 0d 09 0d 09 69 | 66 20 7b 5b 66 69 6c 65 |EFS....i|f {[file|
|00000560| 20 65 78 69 73 74 73 20 | 22 24 50 52 45 46 53 3a | exists |"$PREFS:|
|00000570| 64 65 66 73 2e 74 63 6c | 22 5d 7d 20 7b 0d 09 09 |defs.tcl|"]} {...|
|00000580| 73 6f 75 72 63 65 20 22 | 24 50 52 45 46 53 3a 64 |source "|$PREFS:d|
|00000590| 65 66 73 2e 74 63 6c 22 | 0d 09 09 0d 09 09 66 6f |efs.tcl"|......fo|
|000005a0| 72 65 61 63 68 20 6e 6d | 20 5b 61 72 72 61 79 20 |reach nm| [array |
|000005b0| 6e 61 6d 65 73 20 70 72 | 65 66 44 65 66 73 5d 20 |names pr|efDefs] |
|000005c0| 7b 0d 09 09 09 67 6c 6f | 62 61 6c 20 24 6e 6d 0d |{....glo|bal $nm.|
|000005d0| 09 09 09 73 65 74 20 24 | 6e 6d 20 24 70 72 65 66 |...set $|nm $pref|
|000005e0| 44 65 66 73 28 24 6e 6d | 29 0d 09 09 7d 0d 09 09 |Defs($nm|)...}...|
|000005f0| 63 61 74 63 68 20 7b 75 | 6e 73 65 74 20 70 72 65 |catch {u|nset pre|
|00000600| 66 44 65 66 73 7d 0d 09 | 7d 0d 09 0d 09 69 66 20 |fDefs}..|}....if |
|00000610| 7b 5b 66 69 6c 65 20 65 | 78 69 73 74 73 20 22 24 |{[file e|xists "$|
|00000620| 50 52 45 46 53 3a 61 72 | 72 64 65 66 73 2e 74 63 |PREFS:ar|rdefs.tc|
|00000630| 6c 22 5d 7d 20 7b 0d 09 | 09 73 6f 75 72 63 65 20 |l"]} {..|.source |
|00000640| 22 24 50 52 45 46 53 3a | 61 72 72 64 65 66 73 2e |"$PREFS:|arrdefs.|
|00000650| 74 63 6c 22 0d 09 09 0d | 09 09 66 6f 72 65 61 63 |tcl"....|..foreac|
|00000660| 68 20 6e 6d 20 5b 61 72 | 72 61 79 20 6e 61 6d 65 |h nm [ar|ray name|
|00000670| 73 20 61 72 72 70 72 65 | 66 44 65 66 73 5d 20 7b |s arrpre|fDefs] {|
|00000680| 0d 09 09 09 73 65 74 20 | 61 72 72 20 5b 6c 69 6e |....set |arr [lin|
|00000690| 64 65 78 20 24 6e 6d 20 | 30 5d 0d 09 09 09 73 65 |dex $nm |0]....se|
|000006a0| 74 20 66 69 65 6c 64 20 | 5b 6c 69 6e 64 65 78 20 |t field |[lindex |
|000006b0| 24 6e 6d 20 31 5d 0d 09 | 09 09 73 65 74 20 76 61 |$nm 1]..|..set va|
|000006c0| 6c 20 24 61 72 72 70 72 | 65 66 44 65 66 73 28 24 |l $arrpr|efDefs($|
|000006d0| 6e 6d 29 0d 09 09 09 67 | 6c 6f 62 61 6c 20 24 61 |nm)....g|lobal $a|
|000006e0| 72 72 0d 09 09 09 73 65 | 74 20 24 7b 61 72 72 7d |rr....se|t ${arr}|
|000006f0| 28 24 66 69 65 6c 64 29 | 20 24 76 61 6c 0d 09 09 |($field)| $val...|
|00000700| 7d 0d 09 09 63 61 74 63 | 68 20 7b 75 6e 73 65 74 |}...catc|h {unset|
|00000710| 20 61 72 72 70 72 65 66 | 44 65 66 73 7d 0d 09 7d | arrpref|Defs}..}|
|00000720| 0d 0d 09 23 20 55 73 65 | 20 22 70 72 65 66 73 2e |...# Use| "prefs.|
|00000730| 74 63 6c 22 20 74 6f 20 | 64 65 66 69 6e 65 20 6f |tcl" to |define o|
|00000740| 72 20 63 68 61 6e 67 65 | 20 61 6e 79 20 74 63 6c |r change| any tcl|
|00000750| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 2e 20 2a 2f | informa|tion. */|
|00000760| 0d 09 69 66 20 7b 21 5b | 66 69 6c 65 20 65 78 69 |..if {![|file exi|
|00000770| 73 74 73 20 22 24 50 52 | 45 46 53 3a 70 72 65 66 |sts "$PR|EFS:pref|
|00000780| 73 2e 74 63 6c 22 5d 7d | 20 7b 0d 09 09 0d 09 09 |s.tcl"]}| {......|
|00000790| 69 66 20 7b 21 5b 66 69 | 6c 65 20 65 78 69 73 74 |if {![fi|le exist|
|000007a0| 73 20 22 24 50 52 45 46 | 53 22 5d 7d 20 7b 0d 09 |s "$PREF|S"]} {..|
|000007b0| 09 09 6d 6b 64 69 72 20 | 22 24 50 52 45 46 53 22 |..mkdir |"$PREFS"|
|000007c0| 0d 09 09 7d 0d 09 09 73 | 65 74 20 66 64 20 5b 6f |...}...s|et fd [o|
|000007d0| 70 65 6e 20 22 24 50 52 | 45 46 53 3a 70 72 65 66 |pen "$PR|EFS:pref|
|000007e0| 73 2e 74 63 6c 22 20 22 | 77 22 5d 0d 09 09 63 6c |s.tcl" "|w"]...cl|
|000007f0| 6f 73 65 20 24 66 64 0d | 09 7d 0d 09 75 70 6c 65 |ose $fd.|.}..uple|
|00000800| 76 65 6c 20 23 30 20 7b | 0d 09 09 69 66 20 7b 5b |vel #0 {|...if {[|
|00000810| 63 61 74 63 68 20 7b 73 | 6f 75 72 63 65 20 22 24 |catch {s|ource "$|
|00000820| 50 52 45 46 53 3a 70 72 | 65 66 73 2e 74 63 6c 22 |PREFS:pr|efs.tcl"|
|00000830| 7d 5d 7d 20 7b 0d 09 09 | 09 61 6c 65 72 74 6e 6f |}]} {...|.alertno|
|00000840| 74 65 20 22 41 6e 20 65 | 72 72 6f 72 20 6f 63 63 |te "An e|rror occ|
|00000850| 75 72 72 65 64 20 77 68 | 69 6c 65 20 6c 6f 61 64 |urred wh|ile load|
|00000860| 69 6e 67 20 5c 22 70 72 | 65 66 73 2e 74 63 6c 5c |ing \"pr|efs.tcl\|
|00000870| 22 22 20 0d 09 09 7d 0d | 09 7d 0d 7d 0d 0d 09 0d |"" ...}.|.}.}....|
|00000880| 70 72 6f 63 20 76 69 65 | 77 53 61 76 65 64 53 65 |proc vie|wSavedSe|
|00000890| 74 74 69 6e 67 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |tting {}| {..glob|
|000008a0| 61 6c 20 70 72 65 66 44 | 65 66 73 20 61 72 72 70 |al prefD|efs arrp|
|000008b0| 72 65 66 44 65 66 73 0d | 0d 09 73 61 76 65 4d 6f |refDefs.|..saveMo|
|000008c0| 64 69 66 69 65 64 56 61 | 72 73 0d 09 0d 09 72 65 |difiedVa|rs....re|
|000008d0| 61 64 44 65 66 73 0d 09 | 72 65 61 64 44 65 66 73 |adDefs..|readDefs|
|000008e0| 20 61 72 72 0d 09 0d 09 | 73 65 74 20 72 65 73 20 | arr....|set res |
|000008f0| 5b 6c 69 73 74 70 69 63 | 6b 20 2d 70 20 22 54 68 |[listpic|k -p "Th|
|00000900| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 73 65 74 74 |e follow|ing sett|
|00000910| 69 6e 67 73 20 68 61 76 | 65 20 62 65 65 6e 20 73 |ings hav|e been s|
|00000920| 61 76 65 64 3a 22 20 5b | 67 65 74 53 61 76 65 64 |aved:" [|getSaved|
|00000930| 53 65 74 74 69 6e 67 73 | 5d 5d 0d 0d 09 69 66 20 |Settings|]]...if |
|00000940| 7b 5b 72 65 67 65 78 70 | 20 7b 28 5b 5e 28 5d 2b |{[regexp| {([^(]+|
|00000950| 29 5c 28 28 5b 5e 29 5d | 2b 29 5c 29 7d 20 24 72 |)\(([^)]|+)\)} $r|
|00000960| 65 73 20 64 75 6d 6d 79 | 20 61 72 72 20 66 69 65 |es dummy| arr fie|
|00000970| 6c 64 5d 7d 20 7b 0d 09 | 09 73 65 74 20 61 72 67 |ld]} {..|.set arg|
|00000980| 20 5b 6c 69 73 74 20 24 | 61 72 72 20 24 66 69 65 | [list $|arr $fie|
|00000990| 6c 64 5d 0d 09 09 73 65 | 74 20 76 61 6c 20 24 61 |ld]...se|t val $a|
|000009a0| 72 72 70 72 65 66 44 65 | 66 73 28 24 61 72 67 29 |rrprefDe|fs($arg)|
|000009b0| 0d 09 09 69 66 20 7b 5b | 73 74 72 69 6e 67 20 6c |...if {[|string l|
|000009c0| 65 6e 67 74 68 20 24 76 | 61 6c 5d 20 3e 20 38 30 |ength $v|al] > 80|
|000009d0| 7d 20 7b 0d 09 09 09 67 | 6c 6f 62 61 6c 20 74 69 |} {....g|lobal ti|
|000009e0| 6c 65 4c 65 66 74 20 74 | 69 6c 65 54 6f 70 20 74 |leLeft t|ileTop t|
|000009f0| 69 6c 65 57 69 64 74 68 | 0d 09 09 09 6e 65 77 20 |ileWidth|....new |
|00000a00| 2d 67 20 24 74 69 6c 65 | 4c 65 66 74 20 24 74 69 |-g $tile|Left $ti|
|00000a10| 6c 65 54 6f 70 20 24 74 | 69 6c 65 57 69 64 74 68 |leTop $t|ileWidth|
|00000a20| 20 31 30 30 20 2d 6e 20 | 22 5c 24 24 7b 61 72 72 | 100 -n |"\$${arr|
|00000a30| 7d 28 24 66 69 65 6c 64 | 29 22 0d 09 09 09 69 6e |}($field|)"....in|
|00000a40| 73 65 72 74 54 65 78 74 | 20 22 27 24 72 65 73 27 |sertText| "'$res'|
|00000a50| 73 20 76 61 6c 75 65 20 | 69 73 3a 5c 72 5c 72 24 |s value |is:\r\r$|
|00000a60| 76 61 6c 5c 72 22 0d 09 | 09 09 73 65 74 57 69 6e |val\r"..|..setWin|
|00000a70| 49 6e 66 6f 20 72 65 61 | 64 2d 6f 6e 6c 79 20 31 |Info rea|d-only 1|
|00000a80| 0d 09 09 09 73 65 74 57 | 69 6e 49 6e 66 6f 20 64 |....setW|inInfo d|
|00000a90| 69 72 74 79 20 30 0d 09 | 09 09 67 6f 74 6f 20 30 |irty 0..|..goto 0|
|00000aa0| 0d 09 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 09 61 |...} els|e {....a|
|00000ab0| 6c 65 72 74 6e 6f 74 65 | 20 22 27 24 72 65 73 27 |lertnote| "'$res'|
|00000ac0| 73 20 76 61 6c 75 65 20 | 69 73 3a 5c 72 5c 72 24 |s value |is:\r\r$|
|00000ad0| 76 61 6c 5c 72 22 0d 09 | 09 7d 0d 09 7d 20 65 6c |val\r"..|.}..} el|
|00000ae0| 73 65 20 7b 0d 09 09 67 | 6c 6f 62 61 6c 20 24 72 |se {...g|lobal $r|
|00000af0| 65 73 0d 09 09 61 6c 65 | 72 74 6e 6f 74 65 20 22 |es...ale|rtnote "|
|00000b00| 27 24 72 65 73 27 73 20 | 76 61 6c 75 65 20 69 73 |'$res's |value is|
|00000b10| 3a 5c 72 5c 72 24 70 72 | 65 66 44 65 66 73 28 24 |:\r\r$pr|efDefs($|
|00000b20| 72 65 73 29 22 0d 09 7d | 0d 0d 09 75 6e 73 65 74 |res)"..}|...unset|
|00000b30| 20 70 72 65 66 44 65 66 | 73 20 61 72 72 70 72 65 | prefDef|s arrpre|
|00000b40| 66 44 65 66 73 0d 7d 0d | 0d 70 72 6f 63 20 72 65 |fDefs.}.|.proc re|
|00000b50| 6d 6f 76 65 53 61 76 65 | 64 53 65 74 74 69 6e 67 |moveSave|dSetting|
|00000b60| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 70 72 | {} {..g|lobal pr|
|00000b70| 65 66 44 65 66 73 20 61 | 72 72 70 72 65 66 44 65 |efDefs a|rrprefDe|
|00000b80| 66 73 0d 09 0d 09 73 61 | 76 65 4d 6f 64 69 66 69 |fs....sa|veModifi|
|00000b90| 65 64 56 61 72 73 0d 09 | 0d 09 72 65 61 64 44 65 |edVars..|..readDe|
|00000ba0| 66 73 0d 09 72 65 61 64 | 44 65 66 73 20 61 72 72 |fs..read|Defs arr|
|00000bb0| 0d 09 73 65 74 20 72 65 | 73 20 5b 6c 69 73 74 70 |..set re|s [listp|
|00000bc0| 69 63 6b 20 2d 70 20 22 | 52 65 6d 6f 76 65 20 77 |ick -p "|Remove w|
|00000bd0| 68 69 63 68 20 73 65 74 | 74 69 6e 67 3f 22 20 5b |hich set|ting?" [|
|00000be0| 6c 73 6f 72 74 20 2d 69 | 67 6e 6f 72 65 20 5b 67 |lsort -i|gnore [g|
|00000bf0| 65 74 53 61 76 65 64 53 | 65 74 74 69 6e 67 73 5d |etSavedS|ettings]|
|00000c00| 5d 5d 0d 0d 09 69 66 20 | 7b 24 72 65 73 20 3d 3d |]]...if |{$res ==|
|00000c10| 20 22 22 7d 20 72 65 74 | 75 72 6e 0d 09 69 66 20 | ""} ret|urn..if |
|00000c20| 7b 5b 72 65 67 65 78 70 | 20 7b 28 5b 5e 28 5d 2b |{[regexp| {([^(]+|
|00000c30| 29 5c 28 28 5b 5e 29 5d | 2b 29 5c 29 7d 20 24 72 |)\(([^)]|+)\)} $r|
|00000c40| 65 73 20 64 75 6d 6d 79 | 20 61 72 72 20 66 69 65 |es dummy| arr fie|
|00000c50| 6c 64 5d 7d 20 7b 0d 09 | 09 67 6c 6f 62 61 6c 20 |ld]} {..|.global |
|00000c60| 24 61 72 72 0d 23 20 09 | 09 63 61 74 63 68 20 7b |$arr.# .|.catch {|
|00000c70| 75 6e 73 65 74 20 24 7b | 61 72 72 7d 28 24 66 69 |unset ${|arr}($fi|
|00000c80| 65 6c 64 29 7d 0d 09 09 | 72 65 6d 6f 76 65 41 72 |eld)}...|removeAr|
|00000c90| 72 44 65 66 20 24 61 72 | 72 20 24 66 69 65 6c 64 |rDef $ar|r $field|
|00000ca0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 67 6c 6f |..} else| {...glo|
|00000cb0| 62 61 6c 20 24 72 65 73 | 0d 23 20 09 09 63 61 74 |bal $res|.# ..cat|
|00000cc0| 63 68 20 7b 75 6e 73 65 | 74 20 24 72 65 73 7d 0d |ch {unse|t $res}.|
|00000cd0| 09 09 72 65 6d 6f 76 65 | 44 65 66 20 24 72 65 73 |..remove|Def $res|
|00000ce0| 0d 09 7d 0d 0d 09 75 6e | 73 65 74 20 70 72 65 66 |..}...un|set pref|
|00000cf0| 44 65 66 73 20 61 72 72 | 70 72 65 66 44 65 66 73 |Defs arr|prefDefs|
|00000d00| 0d 7d 0d 0d 0d 70 72 6f | 63 20 67 65 74 53 61 76 |.}...pro|c getSav|
|00000d10| 65 64 53 65 74 74 69 6e | 67 73 20 7b 7d 20 7b 0d |edSettin|gs {} {.|
|00000d20| 09 67 6c 6f 62 61 6c 20 | 70 72 65 66 44 65 66 73 |.global |prefDefs|
|00000d30| 20 61 72 72 70 72 65 66 | 44 65 66 73 0d 09 0d 09 | arrpref|Defs....|
|00000d40| 72 65 61 64 44 65 66 73 | 0d 09 72 65 61 64 44 65 |readDefs|..readDe|
|00000d50| 66 73 20 61 72 72 0d 09 | 0d 09 73 65 74 20 6e 61 |fs arr..|..set na|
|00000d60| 6d 65 73 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |mes [arr|ay names|
|00000d70| 20 70 72 65 66 44 65 66 | 73 5d 0d 09 66 6f 72 65 | prefDef|s]..fore|
|00000d80| 61 63 68 20 70 61 69 72 | 20 5b 61 72 72 61 79 20 |ach pair| [array |
|00000d90| 6e 61 6d 65 73 20 61 72 | 72 70 72 65 66 44 65 66 |names ar|rprefDef|
|00000da0| 73 5d 20 7b 0d 09 09 6c | 61 70 70 65 6e 64 20 6e |s] {...l|append n|
|00000db0| 61 6d 65 73 20 22 5b 6c | 69 6e 64 65 78 20 24 70 |ames "[l|index $p|
|00000dc0| 61 69 72 20 30 5d 28 5b | 6c 69 6e 64 65 78 20 24 |air 0]([|lindex $|
|00000dd0| 70 61 69 72 20 31 5d 29 | 22 0d 09 7d 0d 09 0d 09 |pair 1])|"..}....|
|00000de0| 72 65 74 75 72 6e 20 5b | 6c 73 6f 72 74 20 24 6e |return [|lsort $n|
|00000df0| 61 6d 65 73 5d 0d 7d 0d | 0d 23 3d 3d 3d 3d 3d 3d |ames].}.|.#======|
|00000e00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 70 72 6f 63 20 |========|=..proc |
|00000e50| 62 75 69 6c 64 52 65 63 | 65 6e 74 46 69 6c 65 73 |buildRec|entFiles|
|00000e60| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 72 65 | {} {..g|lobal re|
|00000e70| 63 65 6e 74 46 69 6c 65 | 73 53 61 76 65 20 72 65 |centFile|sSave re|
|00000e80| 63 65 6e 74 46 69 6c 65 | 73 20 6d 6f 64 69 66 69 |centFile|s modifi|
|00000e90| 65 64 56 61 72 73 0d 09 | 0d 09 6c 61 70 70 65 6e |edVars..|..lappen|
|00000ea0| 64 20 6d 6f 64 69 66 69 | 65 64 56 61 72 73 0d 09 |d modifi|edVars..|
|00000eb0| 0d 09 6d 65 73 73 61 67 | 65 20 22 42 75 69 6c 64 |..messag|e "Build|
|00000ec0| 69 6e 67 20 72 65 63 65 | 6e 74 20 66 69 6c 65 73 |ing rece|nt files|
|00000ed0| 20 6d 65 6e 75 c9 22 0d | 09 69 66 20 7b 5b 69 6e | menu.".|.if {[in|
|00000ee0| 66 6f 20 65 78 69 73 74 | 73 20 72 65 63 65 6e 74 |fo exist|s recent|
|00000ef0| 46 69 6c 65 73 5d 7d 20 | 7b 0d 09 09 73 65 74 20 |Files]} |{...set |
|00000f00| 72 65 63 65 6e 74 46 69 | 6c 65 73 53 61 76 65 20 |recentFi|lesSave |
|00000f10| 24 72 65 63 65 6e 74 46 | 69 6c 65 73 0d 09 7d 0d |$recentF|iles..}.|
|00000f20| 09 69 66 20 7b 5b 69 6e | 66 6f 20 65 78 69 73 74 |.if {[in|fo exist|
|00000f30| 73 20 72 65 63 65 6e 74 | 46 69 6c 65 73 53 61 76 |s recent|FilesSav|
|00000f40| 65 5d 7d 20 7b 0d 09 09 | 66 6f 72 65 61 63 68 20 |e]} {...|foreach |
|00000f50| 66 20 24 72 65 63 65 6e | 74 46 69 6c 65 73 53 61 |f $recen|tFilesSa|
|00000f60| 76 65 20 7b 0d 09 09 09 | 70 75 73 68 52 65 63 65 |ve {....|pushRece|
|00000f70| 6e 74 20 24 66 0d 09 09 | 7d 0d 09 7d 0d 09 09 0d |nt $f...|}..}....|
|00000f80| 09 63 61 74 63 68 20 7b | 75 6e 73 65 74 20 72 65 |.catch {|unset re|
|00000f90| 63 65 6e 74 46 69 6c 65 | 73 53 61 76 65 7d 0d 7d |centFile|sSave}.}|
|00000fa0| 0d 0d 0d 70 72 6f 63 20 | 61 70 70 65 6e 64 54 65 |...proc |appendTe|
|00000fb0| 78 74 20 7b 74 20 69 74 | 65 6d 7d 20 7b 72 65 74 |xt {t it|em} {ret|
|00000fc0| 75 72 6e 20 22 24 69 74 | 65 6d 24 74 22 7d 0d 0d |urn "$it|em$t"}..|
|00000fd0| 70 72 6f 63 20 70 75 73 | 68 52 65 63 65 6e 74 20 |proc pus|hRecent |
|00000fe0| 7b 6e 61 6d 65 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |{name} {|..global|
|00000ff0| 20 72 65 63 65 6e 74 46 | 69 6c 65 73 0d 09 0d 09 | recentF|iles....|
|00001000| 72 65 67 73 75 62 20 7b | 20 3c 5c 77 2b 3e 7d 20 |regsub {| <\w+>} |
|00001010| 24 6e 61 6d 65 20 7b 7d | 20 6e 61 6d 65 0d 09 69 |$name {}| name..i|
|00001020| 66 20 7b 5b 73 74 72 69 | 6e 67 20 6d 61 74 63 68 |f {[stri|ng match|
|00001030| 20 7b 2a 5c 2a 2a 7d 20 | 24 6e 61 6d 65 5d 20 7c | {*\**} |$name] ||
|00001040| 7c 20 5b 73 74 72 69 6e | 67 20 6d 61 74 63 68 20 || [strin|g match |
|00001050| 22 55 6e 74 69 74 2a 22 | 20 24 6e 61 6d 65 5d 20 |"Untit*"| $name] |
|00001060| 7d 20 72 65 74 75 72 6e | 0d 09 69 66 20 7b 5b 69 |} return|..if {[i|
|00001070| 6e 66 6f 20 65 78 69 73 | 74 73 20 72 65 63 65 6e |nfo exis|ts recen|
|00001080| 74 46 69 6c 65 73 5d 20 | 26 26 20 28 5b 73 65 74 |tFiles] |&& ([set|
|00001090| 20 69 6e 64 20 5b 6c 73 | 65 61 72 63 68 20 2d 67 | ind [ls|earch -g|
|000010a0| 6c 6f 62 20 24 72 65 63 | 65 6e 74 46 69 6c 65 73 |lob $rec|entFiles|
|000010b0| 20 22 2a 5b 66 69 6c 65 | 20 74 61 69 6c 20 24 6e | "*[file| tail $n|
|000010c0| 61 6d 65 5d 22 5d 5d 20 | 3e 3d 20 30 29 7d 20 7b |ame]"]] |>= 0)} {|
|000010d0| 0d 09 09 73 65 74 20 72 | 65 63 65 6e 74 46 69 6c |...set r|ecentFil|
|000010e0| 65 73 20 5b 6c 72 65 70 | 6c 61 63 65 20 24 72 65 |es [lrep|lace $re|
|000010f0| 63 65 6e 74 46 69 6c 65 | 73 20 24 69 6e 64 20 24 |centFile|s $ind $|
|00001100| 69 6e 64 5d 0d 09 7d 0d | 09 6c 61 70 70 65 6e 64 |ind]..}.|.lappend|
|00001110| 20 72 65 63 65 6e 74 46 | 69 6c 65 73 20 24 6e 61 | recentF|iles $na|
|00001120| 6d 65 0d 09 69 66 20 7b | 5b 6c 6c 65 6e 67 74 68 |me..if {|[llength|
|00001130| 20 24 72 65 63 65 6e 74 | 46 69 6c 65 73 5d 20 3e | $recent|Files] >|
|00001140| 20 31 30 7d 20 7b 0d 09 | 09 73 65 74 20 72 65 63 | 10} {..|.set rec|
|00001150| 65 6e 74 46 69 6c 65 73 | 20 5b 6c 72 61 6e 67 65 |entFiles| [lrange|
|00001160| 20 24 72 65 63 65 6e 74 | 46 69 6c 65 73 20 31 20 | $recent|Files 1 |
|00001170| 65 6e 64 5d 0d 09 7d 0d | 09 73 65 74 20 74 61 69 |end]..}.|.set tai|
|00001180| 6c 73 20 5b 6d 61 70 20 | 7b 66 69 6c 65 20 74 61 |ls [map |{file ta|
|00001190| 69 6c 7d 20 24 72 65 63 | 65 6e 74 46 69 6c 65 73 |il} $rec|entFiles|
|000011a0| 5d 0d 0d 09 6d 65 6e 75 | 20 2d 6d 20 2d 63 20 2d |]...menu| -m -c -|
|000011b0| 6e 20 72 65 63 65 6e 74 | 20 2d 70 20 72 65 63 65 |n recent| -p rece|
|000011c0| 6e 74 50 72 6f 63 20 5b | 63 6f 6e 63 61 74 20 5b |ntProc [|concat [|
|000011d0| 6c 73 6f 72 74 20 2d 69 | 67 6e 6f 72 65 20 24 74 |lsort -i|gnore $t|
|000011e0| 61 69 6c 73 5d 20 5b 6c | 69 73 74 20 22 28 2d 22 |ails] [l|ist "(-"|
|000011f0| 20 22 52 65 73 65 74 20 | 4c 69 73 74 22 5d 5d 0d | "Reset |List"]].|
|00001200| 7d 0d 0d 70 72 6f 63 20 | 72 65 63 65 6e 74 50 72 |}..proc |recentPr|
|00001210| 6f 63 20 7b 6d 65 6e 75 | 20 6e 61 6d 65 7d 20 7b |oc {menu| name} {|
|00001220| 0d 09 67 6c 6f 62 61 6c | 20 72 65 63 65 6e 74 46 |..global| recentF|
|00001230| 69 6c 65 73 0d 09 0d 09 | 69 66 20 7b 24 6e 61 6d |iles....|if {$nam|
|00001240| 65 20 3d 3d 20 22 52 65 | 73 65 74 20 4c 69 73 74 |e == "Re|set List|
|00001250| 22 7d 20 7b 0d 09 09 73 | 65 74 20 72 65 63 65 6e |"} {...s|et recen|
|00001260| 74 46 69 6c 65 73 20 7b | 7d 0d 09 09 6d 65 6e 75 |tFiles {|}...menu|
|00001270| 20 2d 6d 20 2d 6e 20 72 | 65 63 65 6e 74 20 2d 70 | -m -n r|ecent -p|
|00001280| 20 72 65 63 65 6e 74 50 | 72 6f 63 20 7b 7d 0d 09 | recentP|roc {}..|
|00001290| 7d 20 65 6c 73 65 20 7b | 0d 09 09 69 66 20 7b 5b |} else {|...if {[|
|000012a0| 73 65 74 20 69 6e 64 20 | 5b 6c 73 65 61 72 63 68 |set ind |[lsearch|
|000012b0| 20 24 72 65 63 65 6e 74 | 46 69 6c 65 73 20 22 2a | $recent|Files "*|
|000012c0| 3a 24 6e 61 6d 65 22 5d | 5d 20 3e 3d 20 30 7d 20 |:$name"]|] >= 0} |
|000012d0| 7b 0d 09 09 09 65 64 69 | 74 20 5b 6c 69 6e 64 65 |{....edi|t [linde|
|000012e0| 78 20 24 72 65 63 65 6e | 74 46 69 6c 65 73 20 24 |x $recen|tFiles $|
|000012f0| 69 6e 64 5d 0d 09 09 7d | 0d 09 7d 0d 7d 0d 0d 0d |ind]...}|..}.}...|
|00001300| 70 72 6f 63 20 65 64 69 | 74 52 65 63 65 6e 74 46 |proc edi|tRecentF|
|00001310| 69 6c 65 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ile {} {|..global|
|00001320| 20 72 65 63 65 6e 74 46 | 69 6c 65 73 0d 09 0d 09 | recentF|iles....|
|00001330| 66 6f 72 65 61 63 68 20 | 66 20 24 72 65 63 65 6e |foreach |f $recen|
|00001340| 74 46 69 6c 65 73 20 7b | 0d 09 09 6c 61 70 70 65 |tFiles {|...lappe|
|00001350| 6e 64 20 74 61 69 6c 73 | 20 5b 66 69 6c 65 20 74 |nd tails| [file t|
|00001360| 61 69 6c 20 24 66 5d 0d | 09 7d 0d 09 0d 09 66 6f |ail $f].|.}....fo|
|00001370| 72 65 61 63 68 20 72 65 | 73 20 5b 6c 69 73 74 70 |reach re|s [listp|
|00001380| 69 63 6b 20 2d 6c 20 2d | 70 20 7b 46 69 6c 65 3f |ick -l -|p {File?|
|00001390| 7d 20 5b 6c 73 6f 72 74 | 20 2d 69 67 6e 6f 72 65 |} [lsort| -ignore|
|000013a0| 20 24 74 61 69 6c 73 5d | 5d 20 20 7b 0d 09 09 73 | $tails]|]  {...s|
|000013b0| 65 74 20 69 6e 64 20 5b | 6c 73 65 61 72 63 68 20 |et ind [|lsearch |
|000013c0| 24 72 65 63 65 6e 74 46 | 69 6c 65 73 20 5c 2a 3a |$recentF|iles \*:|
|000013d0| 24 72 65 73 5d 0d 09 09 | 63 61 74 63 68 20 7b 65 |$res]...|catch {e|
|000013e0| 64 69 74 20 5b 6c 69 6e | 64 65 78 20 24 72 65 63 |dit [lin|dex $rec|
|000013f0| 65 6e 74 46 69 6c 65 73 | 20 24 69 6e 64 5d 7d 0d |entFiles| $ind]}.|
|00001400| 09 7d 0d 7d 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |.}.}...#|========|
|00001410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001450| 3d 3d 3d 3d 3d 3d 3d 0d | 0d 70 72 6f 63 20 65 64 |=======.|.proc ed|
|00001460| 69 74 50 72 65 66 73 20 | 7b 7d 20 7b 0d 09 67 6c |itPrefs |{} {..gl|
|00001470| 6f 62 61 6c 20 50 52 45 | 46 53 0d 09 69 66 20 7b |obal PRE|FS..if {|
|00001480| 21 5b 66 69 6c 65 20 65 | 78 69 73 74 73 20 22 24 |![file e|xists "$|
|00001490| 50 52 45 46 53 3a 70 72 | 65 66 73 2e 74 63 6c 22 |PREFS:pr|efs.tcl"|
|000014a0| 5d 7d 20 7b 0d 09 09 73 | 65 74 20 66 64 20 5b 6f |]} {...s|et fd [o|
|000014b0| 70 65 6e 20 22 24 50 52 | 45 46 53 3a 70 72 65 66 |pen "$PR|EFS:pref|
|000014c0| 73 2e 74 63 6c 22 20 22 | 77 22 5d 0d 09 09 63 6c |s.tcl" "|w"]...cl|
|000014d0| 6f 73 65 20 24 66 64 0d | 09 7d 0d 09 65 64 69 74 |ose $fd.|.}..edit|
|000014e0| 20 22 24 50 52 45 46 53 | 3a 70 72 65 66 73 2e 74 | "$PREFS|:prefs.t|
|000014f0| 63 6c 22 0d 7d 0d 0d 23 | 20 41 75 74 6f 6d 61 74 |cl".}..#| Automat|
|00001500| 69 63 61 6c 6c 79 20 61 | 64 64 20 61 20 6c 69 6e |ically a|dd a lin|
|00001510| 65 20 74 6f 20 74 68 65 | 20 75 73 65 72 20 69 6e |e to the| user in|
|00001520| 70 75 74 20 66 69 6c 65 | 0d 70 72 6f 63 20 61 64 |put file|.proc ad|
|00001530| 64 55 73 65 72 4c 69 6e | 65 20 7b 6c 69 6e 65 7d |dUserLin|e {line}|
|00001540| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 48 4f 4d 45 20 | {..glob|al HOME |
|00001550| 50 52 45 46 53 0d 0d 09 | 69 66 20 7b 21 5b 66 69 |PREFS...|if {![fi|
|00001560| 6c 65 20 65 78 69 73 74 | 73 20 22 24 50 52 45 46 |le exist|s "$PREF|
|00001570| 53 22 5d 7d 20 7b 0d 09 | 09 6d 6b 64 69 72 20 22 |S"]} {..|.mkdir "|
|00001580| 24 50 52 45 46 53 22 0d | 09 7d 0d 09 73 65 74 20 |$PREFS".|.}..set |
|00001590| 66 69 64 20 5b 6f 70 65 | 6e 20 22 24 50 52 45 46 |fid [ope|n "$PREF|
|000015a0| 53 3a 70 72 65 66 73 2e | 74 63 6c 22 20 22 61 2b |S:prefs.|tcl" "a+|
|000015b0| 22 5d 0d 09 69 66 20 7b | 21 5b 63 61 74 63 68 20 |"]..if {|![catch |
|000015c0| 7b 73 65 65 6b 20 24 66 | 69 64 20 2d 31 20 65 6e |{seek $f|id -1 en|
|000015d0| 64 7d 5d 7d 20 7b 0d 09 | 09 69 66 20 7b 5b 72 65 |d}]} {..|.if {[re|
|000015e0| 61 64 20 24 66 69 64 20 | 31 5d 20 3d 3d 20 22 5c |ad $fid |1] == "\|
|000015f0| 72 22 7d 20 7b 0d 09 09 | 09 73 65 74 20 6c 69 6e |r"} {...|.set lin|
|00001600| 65 20 22 5c 72 24 6c 69 | 6e 65 22 0d 09 09 7d 0d |e "\r$li|ne"...}.|
|00001610| 09 7d 0d 09 73 65 65 6b | 20 24 66 69 64 20 30 20 |.}..seek| $fid 0 |
|00001620| 65 6e 64 0d 09 70 75 74 | 73 20 24 66 69 64 20 24 |end..put|s $fid $|
|00001630| 6c 69 6e 65 0d 09 63 6c | 6f 73 65 20 24 66 69 64 |line..cl|ose $fid|
|00001640| 0d 7d 0d 0d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.}....#=|========|
|00001650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001680| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001690| 3d 3d 3d 3d 3d 3d 0d 0d | 70 72 6f 63 20 73 6f 75 |======..|proc sou|
|000016a0| 72 63 65 43 75 72 72 65 | 6e 74 4d 6f 64 65 50 72 |rceCurre|ntModePr|
|000016b0| 65 66 73 20 7b 7d 20 7b | 20 0d 09 67 6c 6f 62 61 |efs {} {| ..globa|
|000016c0| 6c 20 6d 6f 64 65 20 50 | 52 45 46 53 0d 09 69 66 |l mode P|REFS..if|
|000016d0| 20 7b 5b 66 69 6c 65 20 | 65 78 69 73 74 73 20 22 | {[file |exists "|
|000016e0| 24 7b 50 52 45 46 53 7d | 3a 24 7b 6d 6f 64 65 7d |${PREFS}|:${mode}|
|000016f0| 50 72 65 66 73 2e 74 63 | 6c 22 5d 7d 20 7b 0d 09 |Prefs.tc|l"]} {..|
|00001700| 09 73 6f 75 72 63 65 20 | 20 22 24 7b 50 52 45 46 |.source | "${PREF|
|00001710| 53 7d 3a 24 7b 6d 6f 64 | 65 7d 50 72 65 66 73 2e |S}:${mod|e}Prefs.|
|00001720| 74 63 6c 22 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |tcl"..} |else {..|
|00001730| 09 62 65 65 70 3b 20 6d | 65 73 73 61 67 65 20 22 |.beep; m|essage "|
|00001740| 53 6f 72 72 79 2c 20 6e | 6f 20 70 72 65 66 65 72 |Sorry, n|o prefer|
|00001750| 65 6e 63 65 73 20 66 6f | 72 20 27 24 6d 6f 64 65 |ences fo|r '$mode|
|00001760| 27 20 6d 6f 64 65 22 0d | 09 7d 0d 7d 0d 0d 0d 70 |' mode".|.}.}...p|
|00001770| 72 6f 63 20 65 64 69 74 | 43 75 72 72 65 6e 74 4d |roc edit|CurrentM|
|00001780| 6f 64 65 50 72 65 66 73 | 20 7b 7d 20 7b 20 0d 09 |odePrefs| {} { ..|
|00001790| 67 6c 6f 62 61 6c 20 6d | 6f 64 65 0d 09 65 64 69 |global m|ode..edi|
|000017a0| 74 50 72 65 66 73 50 72 | 6f 63 20 6d 6f 64 65 50 |tPrefsPr|oc modeP|
|000017b0| 72 65 66 73 20 24 6d 6f | 64 65 0d 7d 0d 0d 0d 70 |refs $mo|de.}...p|
|000017c0| 72 6f 63 20 65 64 69 74 | 50 72 65 66 73 50 72 6f |roc edit|PrefsPro|
|000017d0| 63 20 7b 20 6d 65 6e 75 | 20 6d 20 7d 20 7b 0d 09 |c { menu| m } {..|
|000017e0| 6d 65 73 73 61 67 65 20 | 24 6d 0d 09 67 6c 6f 62 |message |$m..glob|
|000017f0| 61 6c 20 50 52 45 46 53 | 20 6d 6f 64 65 0d 09 23 |al PREFS| mode..#|
|00001800| 20 61 73 73 75 6d 65 20 | 69 74 20 69 73 20 61 20 | assume |it is a |
|00001810| 6d 6f 64 65 2c 20 73 69 | 6e 63 65 20 77 65 20 6d |mode, si|nce we m|
|00001820| 61 64 65 20 74 68 65 20 | 6d 65 6e 75 0d 09 0d 09 |ade the |menu....|
|00001830| 73 65 74 20 66 20 22 24 | 50 52 45 46 53 3a 24 7b |set f "$|PREFS:${|
|00001840| 6d 7d 50 72 65 66 73 2e | 74 63 6c 22 0d 09 69 66 |m}Prefs.|tcl"..if|
|00001850| 20 5b 66 69 6c 65 20 65 | 78 69 73 74 73 20 24 66 | [file e|xists $f|
|00001860| 5d 20 7b 0d 09 09 65 64 | 69 74 20 24 66 0d 09 7d |] {...ed|it $f..}|
|00001870| 20 65 6c 73 65 20 7b 0d | 09 09 69 66 20 7b 20 5b | else {.|..if { [|
|00001880| 61 73 6b 79 65 73 6e 6f | 20 22 4e 6f 20 27 24 6d |askyesno| "No '$m|
|00001890| 27 20 70 72 65 66 73 20 | 66 69 6c 65 20 65 78 69 |' prefs |file exi|
|000018a0| 73 74 73 2c 20 64 6f 20 | 79 6f 75 20 77 61 6e 74 |sts, do |you want|
|000018b0| 20 74 6f 20 63 72 65 61 | 74 65 20 6f 6e 65 3f 22 | to crea|te one?"|
|000018c0| 5d 20 5c 0d 09 09 09 3d | 3d 20 22 79 65 73 22 20 |] \....=|= "yes" |
|000018d0| 7d 20 7b 0d 09 09 09 0d | 09 09 09 73 65 74 20 66 |} {.....|...set f|
|000018e0| 64 20 5b 6f 70 65 6e 20 | 24 66 20 22 77 22 5d 0d |d [open |$f "w"].|
|000018f0| 09 09 09 63 6c 6f 73 65 | 20 24 66 64 0d 09 09 09 |...close| $fd....|
|00001900| 65 64 69 74 20 24 66 0d | 09 09 09 69 6e 73 65 72 |edit $f.|...inser|
|00001910| 74 54 65 78 74 20 7b 23 | 23 20 0d 20 23 20 54 68 |tText {#|# . # Th|
|00001920| 69 73 09 66 69 6c 65 20 | 77 69 6c 6c 20 62 65 20 |is.file |will be |
|00001930| 73 6f 75 72 63 65 64 20 | 61 75 74 6f 6d 61 74 69 |sourced |automati|
|00001940| 63 61 6c 6c 79 2c 20 69 | 6d 6d 65 64 69 61 74 65 |cally, i|mmediate|
|00001950| 6c 79 20 61 66 74 65 72 | 20 0d 20 23 20 74 68 65 |ly after| . # the|
|00001960| 20 5f 66 69 72 73 74 5f | 20 74 69 6d 65 09 74 68 | _first_| time.th|
|00001970| 65 09 66 69 6c 65 20 77 | 68 69 63 68 20 64 65 66 |e.file w|hich def|
|00001980| 69 6e 65 73 20 69 74 73 | 20 6d 6f 64 65 20 69 73 |ines its| mode is|
|00001990| 20 73 6f 75 72 63 65 64 | 2e 0d 20 23 20 55 73 65 | sourced|.. # Use|
|000019a0| 20 74 68 69 73 09 66 69 | 6c 65 20 74 6f 09 69 6e | this.fi|le to.in|
|000019b0| 73 65 72 74 20 79 6f 75 | 72 09 6f 77 6e 09 6d 6f |sert you|r.own.mo|
|000019c0| 64 65 2d 73 70 65 63 69 | 66 69 63 20 70 72 65 66 |de-speci|fic pref|
|000019d0| 65 72 65 6e 63 65 73 0d | 20 23 20 61 6e 64 20 63 |erences.| # and c|
|000019e0| 68 61 6e 67 65 73 2c 09 | 72 61 74 68 65 72 20 74 |hanges,.|rather t|
|000019f0| 68 61 6e 09 61 6c 74 65 | 72 69 6e 67 20 74 68 65 |han.alte|ring the|
|00001a00| 20 6f 72 69 67 69 6e 61 | 6c 73 2e 0d 20 23 20 0d | origina|ls.. # .|
|00001a10| 20 23 20 59 6f 75 20 63 | 61 6e 20 72 65 64 65 66 | # You c|an redef|
|00001a20| 69 6e 65 09 6d 65 6e 75 | 73 2c 20 70 72 6f 63 65 |ine.menu|s, proce|
|00001a30| 64 75 72 65 73 2c 20 76 | 61 72 69 61 62 6c 65 73 |dures, v|ariables|
|00001a40| 2c 2e 2e 2e 0d 20 23 23 | 0d 0d 7d 7d 7d 0d 09 09 |,.... ##|..}}}...|
|00001a50| 09 0d 7d 0d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |..}.....|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 01 00 00 00 03 0e | 00 00 02 0e 00 00 00 42 |........|.......B|
|00001a90| 6e 6d 73 20 7b 0d 20 20 | 20 20 20 20 20 20 69 66 |nms {.  |      if|
|00001aa0| 20 7b 5b 73 74 72 69 6e | 67 20 6d 61 74 63 68 20 | {[strin|g match |
|00001ab0| 09 70 72 65 66 73 2e 74 | 63 6c 02 00 00 00 54 45 |.prefs.t|cl....TE|
|00001ac0| 58 54 41 4c 46 41 00 00 | 63 c0 63 c0 00 00 00 00 |XTALFA..|c.c.....|
|00001ad0| 00 00 54 45 58 54 41 4c | 46 41 00 00 63 c0 63 c0 |..TEXTAL|FA..c.c.|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 ab 74 05 9e 00 00 | 19 d5 00 00 03 50 20 7b |...t....|.....P {|
|00001b00| 20 69 63 6f 6e 20 2d 66 | 20 24 6e 61 6d 65 20 2d | icon -f| $name -|
|00001b10| 6f 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |o }.    |        |
|00001b20| 72 65 74 75 72 6e 0d 20 | 20 20 20 20 20 20 20 7d |return. |       }|
|00001b30| 0d 20 20 20 20 7d 0d 20 | 20 20 20 72 65 74 75 72 |.    }. |   retur|
|00001b40| 6e 20 22 6e 6f 72 6d 61 | 6c 22 0d 7d 0d 0d 0d 23 |n "norma|l".}...#|
|00001b50| 20 44 6f 20 6e 6f 74 20 | 6d 6f 76 65 20 27 64 69 | Do not |move 'di|
|00001b60| 73 70 6c 61 79 4d 6f 64 | 65 27 20 63 61 6c 6c 73 |splayMod|e' calls|
|00001b70| 21 0d 70 72 6f 63 20 63 | 68 61 6e 67 65 4d 6f 64 |!.proc c|hangeMod|
|00001b80| 00 00 01 be 00 14 00 00 | 00 55 00 00 00 55 09 61 |........|.U...U.a|
|00001b90| 64 64 41 72 72 44 65 66 | 00 00 00 da 00 00 00 da |ddArrDef|........|
|00001ba0| 07 61 64 64 44 65 66 00 | 00 00 14 a9 00 00 14 a9 |.addDef.|........|
|00001bb0| 0b 61 64 64 55 73 65 72 | 4c 69 6e 65 00 00 0f 23 |.addUser|Line...#|
|00001bc0| 00 00 0f 23 0b 61 70 70 | 65 6e 64 54 65 78 74 00 |...#.app|endText.|
|00001bd0| 00 00 0d cb 00 00 0d cb | 11 62 75 69 6c 64 52 65 |........|.buildRe|
|00001be0| 63 65 6e 74 46 69 6c 65 | 73 00 00 00 16 ef 00 00 |centFile|s.......|
|00001bf0| 16 ef 15 65 64 69 74 43 | 75 72 72 65 6e 74 4d 6f |...editC|urrentMo|
|00001c00| 64 65 50 72 65 66 73 00 | 00 00 13 d9 00 00 13 d9 |dePrefs.|........|
|00001c10| 09 65 64 69 74 50 72 65 | 66 73 00 00 17 3f 00 00 |.editPre|fs...?..|
|00001c20| 17 3f 0d 65 64 69 74 50 | 72 65 66 73 50 72 6f 63 |.?.editP|refsProc|
|00001c30| 00 00 12 80 00 00 12 80 | 0f 65 64 69 74 52 65 63 |........|.editRec|
|00001c40| 65 6e 74 46 69 6c 65 00 | 00 00 0c 85 00 00 0c 85 |entFile.|........|
|00001c50| 11 67 65 74 53 61 76 65 | 64 53 65 74 74 69 6e 67 |.getSave|dSetting|
|00001c60| 73 00 00 00 0f 50 00 00 | 0f 50 0b 70 75 73 68 52 |s....P..|.P.pushR|
|00001c70| 65 63 65 6e 74 00 00 00 | 02 34 00 00 02 34 09 72 |ecent...|.4...4.r|
|00001c80| 65 61 64 44 65 66 73 00 | 00 00 04 9a 00 00 04 9a |eadDefs.|........|
|00001c90| 0d 72 65 61 64 55 73 65 | 72 44 65 66 73 00 00 00 |.readUse|rDefs...|
|00001ca0| 11 83 00 00 11 83 0b 72 | 65 63 65 6e 74 50 72 6f |.......r|ecentPro|
|00001cb0| 63 00 00 00 00 99 00 00 | 00 99 0d 72 65 6d 6f 76 |c.......|...remov|
|00001cc0| 65 41 72 72 44 65 66 00 | 00 00 01 85 00 00 01 85 |eArrDef.|........|
|00001cd0| 09 72 65 6d 6f 76 65 44 | 65 66 00 00 0a c9 00 00 |.removeD|ef......|
|00001ce0| 0a c9 13 72 65 6d 6f 76 | 65 53 61 76 65 64 53 65 |...remov|eSavedSe|
|00001cf0| 74 74 69 6e 67 00 00 00 | 16 18 00 00 16 18 17 73 |tting...|.......s|
|00001d00| 6f 75 72 63 65 43 75 72 | 72 65 6e 74 4d 6f 64 65 |ourceCur|rentMode|
|00001d10| 50 72 65 66 73 00 00 00 | 08 00 00 00 08 00 11 76 |Prefs...|.......v|
|00001d20| 69 65 77 53 61 76 65 64 | 53 65 74 74 69 6e 67 00 |iewSaved|Setting.|
|00001d30| 00 00 03 00 00 00 03 00 | 09 77 72 69 74 65 44 65 |........|.writeDe|
|00001d40| 66 73 00 00 00 48 00 09 | 4d 6f 6e 61 63 6f 00 b6 |fs...H..|Monaco..|
|00001d50| 2c 90 00 00 18 fa 01 ae | 73 94 01 d5 7a 60 24 00 |,.......|s...z`$.|
|00001d60| 04 22 02 0f eb 58 00 00 | 00 04 00 04 00 28 00 02 |."...X..|.....(..|
|00001d70| 02 5b 03 22 00 28 00 02 | 02 5b 03 22 ae 3c a3 4a |.[.".(..|.[.".<.J|
|00001d80| 00 00 11 d5 00 00 11 d5 | 00 00 0f 21 01 00 00 00 |........|...!....|
|00001d90| 01 00 00 00 03 0e 00 00 | 02 0e 00 00 00 42 01 ac |........|.....B..|
|00001da0| da c8 18 fa 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00001db0| 00 01 00 0a 03 ef 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 03 ed ff ff 00 00 01 c2 | 01 b6 2f 08 03 74 61 62 |........|../..tab|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+